home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / btr_oop.exe / GLOBALS.PAS < prev    next >
Pascal/Delphi Source File  |  1991-05-24  |  2KB  |  60 lines
  1. UNIT Globals;
  2. {$D-,L-}
  3. {Contains Global Variables that should apply to most or all TURBO5 programs
  4.    and Units. Is used by most all other programs}
  5.  
  6. INTERFACE
  7. CONST
  8.  Spaces          = '                                                                            ';
  9.                    {80 Spaces, for comparing and padding fields}
  10.  
  11. TYPE
  12.  
  13.  TypStr1  = String[1];          {Type identifiers are neccessary because the}
  14.  TypStr2  = String[2];          {String[n] contruct cannot be used in       }
  15.  TypStr3  = String[3];          {   procedure heading paramter lists.       }
  16.  TypStr4  = String[4];
  17.  TypStr5  = String[5];
  18.  TypStr6  = String[6];
  19.  TypStr7  = String[7];
  20.  TypStr8  = String[8];
  21.  TypStr9  = String[9];
  22.  TypStr10 = String[10];
  23.  TypStr11 = String[11];
  24.  TypStr12 = String[12];
  25.  TypStr13 = String[13];
  26.  TypStr14 = String[14];
  27.  TypStr15 = String[15];
  28.  TypStr16 = String[16];
  29.  TypStr17 = String[17];
  30.  TypStr18 = String[18];
  31.  TypStr19 = String[19];
  32.  TypStr20 = String[20];
  33.  TypStr23 = String[23];
  34.  TypStr25 = String[25];
  35.  TypStr29 = String[29];
  36.  TypStr30 = String[30];
  37.  TypStr32 = String[32];
  38.  TypStr35 = String[35];
  39.  TypStr39 = String[39];
  40.  TypStr40 = String[40];
  41.  TypStr45 = String[45];
  42.  TypStr50 = String[50];
  43.  TypStr60 = String[60];
  44.  TypStr80 = String[80];
  45.  TypStr130 = String[130];
  46.  TypStr132 = String[132];
  47.  TypStr254 = String[254];
  48.  TypStr255 = String[255];
  49.  
  50.  DateType    = LongInt;         {Necc. to interface with XTrieve: See UtlDate}
  51.  
  52. VAR
  53.  ZeroDate : DateType;
  54.  
  55. IMPLEMENTATION
  56.  
  57. BEGIN
  58.   ZeroDate := 0;
  59. END.
  60.